Profile of (eval 300)[Sub/Quote.pm:3]

Filename	(eval 300)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 139 statements in 479µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
51	2	1	225µs	225µs	JSON::Schema::Modern::Document::_serialized_schema
1	1	1	11µs	25µs	JSON::Schema::Modern::Document::BEGIN@6.145
1	1	1	7µs	18µs	Method::Generate::Accessor::_Generated::BEGIN@20.147
1	1	1	5µs	5µs	Method::Generate::Accessor::_Generated::BEGIN@11.146

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $isa_check_for__5fserialized_5fschema = ${$_[1]->{"\$isa_check_for__5fserialized_5fschema"}};
3	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5					package JSON::Schema::Modern::Document;
6	2	48µs	2	39µs	# spent 25µs (11+14) within JSON::Schema::Modern::Document::BEGIN@6.145 which was called: # once (11µs+14µs) by Sub::Quote::_clean_eval at line 6 no warnings 'closure'; # spent 25µs making 1 call to JSON::Schema::Modern::Document::BEGIN@6.145 # spent 14µs making 1 call to warnings::unimport
7					# spent 225µs within JSON::Schema::Modern::Document::_serialized_schema which was called 51 times, avg 4µs/call: # 37 times (75µs+0s) by List::Util::first at line 174 of JSON/Schema/Modern.pm, avg 2µs/call # 14 times (150µs+0s) by JSON::Schema::Modern::add_schema at line 170 of JSON/Schema/Modern.pm, avg 11µs/call sub _serialized_schema {
8					($_QUOTED,$_UNQUOTED) if 0;
9					# BEGIN quote_sub PRELUDE
10					package Method::Generate::Accessor::_Generated;
11					# spent 5µs within Method::Generate::Accessor::_Generated::BEGIN@11.146 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 16 BEGIN {
12	1	1µs			$^H = 1762;
13	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
14	1	4µs			%^H = (
15					);
16	1	30µs	1	5µs	} # spent 5µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@11.146
17					# END quote_sub PRELUDE
18					(@_ > 1
19	15	72µs			? scalar do { my $value = $_[1];
20	47	170µs	2	29µs	# spent 18µs (7+11) within Method::Generate::Accessor::_Generated::BEGIN@20.147 which was called: # once (7µs+11µs) by Sub::Quote::_clean_eval at line 20 (do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for__5fserialized_5fschema, "Str", $value, "attribute_name","_serialized_schema","attribute_step","isa check","mgaca","0","varname","\$self->{\"_serialized_schema\"}"); $value }), # spent 18µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@20.147 # spent 11µs making 1 call to warnings::unimport
21					($_[0]->{"_serialized_schema"} = $value),
22	15	40µs			($_[0]->{"_serialized_schema"}),
23					}
24	51	107µs			: $_[0]->{"_serialized_schema"}
25					) }
26	1	1µs			$$_UNQUOTED = \&_serialized_schema;
27					}
28	1	5µs			1;
29
30					;